home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-13
/
tsqed16.zip
/
CRYPT.QMA
< prev
next >
Wrap
Text File
|
1992-03-28
|
2KB
|
50 lines
* All rights reserved
* Encrypt or decrypt the current file
* By Prof. Timo Salmi Sat 28-March-1992
*
* To compile these macros apply QMAC CRYPT.MAC CRYPT.QMA /A- /B
*
* To compile and use this command macro you need
* (also version 2.1 will do):
* QMAC.EXE macro translator from /pc/editor/qmac215.zip
* CRYPTER.EXE from garbo.uwasa.fi:/pc/ts/tsfcom23.zip
*
* Before compiling the macro, edit the paths in the "Dos" command
* lines to conform to where you have your files.
*
* To make this macro available you can e.g. first invoke the main menu
* (usually F10) and select Macro: Read Macro: crypt.mac. Then you can
* invoke the en/decryption with ALT-5.
*
* There is an annoying flaw in QEdit's CurrentFilename function. If
* the path is long, the tails is truncated, and the macro won't work
*
* If you have your plain text file in r:\$crypt.txt then you can
* encrypt and decrypt it back and forth simply by pressing ALT-5.
* The macro works, though, even if you start from any text file.
* The first time one gets it flip back and forth it almost looks
* like some kind of a magic.
* ┌──────────────────────────────────┐
* │ Encrypt or decrypt a file, ALT-5 │
* └──────────────────────────────────┘
@5 MacroBegin
*
* Encrypt of decrypt using my crypter program
* Ensure that your password is at least 8 characters long and
* non-trivial
Dos 'c:\tuki\crypter ' CurrentFilename ' r:\$crypt.tmp password'
Return Return
*
* Copy the results
Dos 'copy r:\$crypt.tmp r:\$crypt.txt'
Return Return
*
* Delete the intermediate file
Dos 'del r:\$crypt.tmp'
Return Return
*
* See the results
EditFile "r:\$crypt.txt" Return
EditFile CurrentFilename Return NewFile Return